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-TITLE FORsREAD. SL = entry point for FORTRAN ee SEQUENTIAL LIST=DIRECTED 
IDENT /1 FA e: FORREADSL.MAR Edit: JAW1011 


i aeeneneeeeeuneeeeeeeuneeeeseuuneeseesennnsenunennseacenerseecenseqecesetsess 
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; ¢ ABSTRACT: 


y point for the FORTRAN 

1/0 statement. It is simply 
ts in RO which describe the 
interprets the parameters. 


This module contains the 
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6 
READ ago fis LIST- DIREC 
a call to FORS$I0_ BEG with 
parameter List. FOR$$I0_8 


; MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSREAD_SL 
. MASK OR$$!10 BEG 
BRW FORSREAB_SL+2 
This puts the correct mask in entry vector, that is FORSS$IO_BEG entry mask. 
Furthermore this module must only use RO and 
since any other register might not be in the entry mask for FORS$10_BEG. 
; ENVIRONMENT: User access mode; mixture of AST level or not 
: ; AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


; MODIFIED BY: 
. Hastings, 29-July-78 
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i FACILITY: FORTRAN Support Library - user callable 
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1-011 HISTO r : Detailed Current Edit History 6=-SE 71984 49: 3 38 FORRTL. SRCJFORREADSL.MAR; 1 se 3) 


-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 


Add comment about vectors. TNH 23-June-78 
Pass arg in RO, not ROR, add comments. TNH 29-July-78 
Update version number and copyright notice. JBS 1b-NOV-7 
Change statement type symbols to be LUBSK... JBS 07-DEC-78 
change, pratenene 1 symbols to be is $K..._ JBS 11-DEC-78 
Add gives ive, JBS eee -7 
Add FORSREAD. er FORSREAD FORSREW RITE_SF, FORSREWRITE_SO, 
FORSREAD_IF, “FORSREAD 10, ons Ate FORSWRITE _10, 
eonege ne. KU, FORSREWRTT RITE 
-006 - Remove all entry ohne that need object time formatting, 
oie them in FORSENTRY_OBJ so that we can arrange to 
bt seh compiler Only when it is needed. 
1-007 = Remove entry point dwg y- MF; we will code a new module 
for it and F “yer £8 see how much 1/0 initiation time 
improves. JBS 02-J tie S195 
1-008 - Do Likewuse for FORSREAD “ih and FORSWRITE_DU. JBS 03-JUL-1979 
1-009 = Remove all entry points except FORSREAD SC; each of the 
others gets its own module so we can sascha load 
the necessary UDF and REC modules. JBS 09- 
010 - New parameter format for FORS$$IO_BEG. SBL 5-D 579 
011 = Change BRW FORS$I0_BEG+2 to JMP G*FORSSIO ‘peGess JAW 21-Feb-1981 
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1-011 DECLARATIONS 6-SEP-1984 CFORRTL.S RCI FORREADSL.MAR; 1 (3) 


-SBTTL DECLARATIONS 


: INCLUDE FILES: 


SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF : Define statement type symbols 
: EXTERNAL SYMBOLS: 
-DOSABL GBL ; Declare all external symbols 
x -EXTRN FORSS$IO_BEG ; common 1/0 statement processing 
: The following references are to make sure the necessary UDF and REC 
; modules are loaded. These are ts routines which are called through 
A the dispatch tables in FORSSDISPAT 
-EXTRN FORSSUDF_RLO, FORSSUDF_RL1, FORSSUDF _RLO 
-EXTRN FORSSREC-RSLO, FORSSREC_RSL1, FORSSREC_RSLO 
; MACROS: 
: NONE 
> PSECT DECLARATIONS: 


0000 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 


+ EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 
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FORSREAD_SL = entry point for 759: AX/VMS Macro V04-00 Page 
1-011 FORSREAD SL = READ Sequential LIST-DIREC rei y P 13:89;59 YPORRIL. SRCJFORREADSL.MAR; 1 . 
09 8 -SBTTL FORSREAD_SL = READ Sequential LIST-DIRECTED 
1:44 
¢ ; FUNCTIONAL DESCRIPTION: 
4 Initialize the FORTRAN I/0 syaten to perform 
5 a READ sequential LIST-DIRECTED 1/0 statement. 
5 ; ; CALLING SEQUENCE: 
0 9 CALL FORSREAD_SL (unit.rl.v, 
8 , err_adr.j.r C, end_ adr.j.rJ)) 
8 ; INPUT PARAMETERS: 
0 unit.rl.v logical unit number 
0 err “adr. = tr) optional ERR= address 
end_adr.j.rJ optional END= address 
3 ; IMPLICIT INPUTS: 
NONE except those used by FORSSIO_BEG. 


OUTPUT PARAMETERS: 

NONE 

; IMPLICIT OUTPUTS: 

; NONE except those left by FORS$S$IO_BEG. 
; COMPLETION CODES: 

a 

: SIDE EFFECTS: 

NONE except those of FORSS$SIO_BEG. 
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, FORSREAD_SL: MASK FORS$IO_ BEG 
50 OA QA pov vzaL #ISBS$K_ST_TY_RSC, RO Statement type 
00000002'GF 17 G*FORSSIO_BEG+2 branch past call mask 
0 END 
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Symbol tabie 


G 6 
= entry point for FORTRAN READ SEQUENTIA i 


19 


en 38e ; :59:1 AX/VMS Ma 
EP- 4 :59:2 FORRTL.SR 
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cro V04 
RREADSL.MAR; 1 (4) | 


r 
CIFO 


FORS$10 BEG feeceree § 6X 
FORSSREC_RSLO teeeenee x 
FORSSREC_RSL1 eeenecee § x 
FORSSREC_RSLO mene ie 
FORSSUDF _RL eeeeeeee x 
SUDF _RL1 eeeneree =X 0 
FORSSUDF RLY eeeeeree =X 0 
READ_SL 0000000 RG 01 
SBSK_ST~TY_RSL = 0000000A 
pmo women ew ama anon 
! Psect synopsis ! 
toma man am oamonoce ceed | 
PSECT name Allocation PSECT No. 
- ABS. 00000000 <¢ 0.) 00¢ 0.) CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000008 ¢«¢ 11.) #O1¢ 1.) CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


Page faults CPU Time 


The working set Limit was 900 pages. 


pewoceeeeccoccoceccoccce 


6663 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 
There were 20 pages of symbol table space allocated to hold 187 


t non-local and 0 local symbols. 
175 source Lines were read in Pass 1, producing 8 object records in Pass 2. 


Initialization 30 00:00:00.11 00:00:00.85 
Command processing 117 abs Bo ST 00:00:03.72 
Pass 125 00:00:01.30 00:00:04.10 
Symbol table sort 0 BR #2 88° 12 00:00:00.29 
Pass 2 49 00:00:00.46 00:00:02.04 | 
Symbol table output ¢ 00:00:00.02 00:00:00.08 
Psect synopsis output 00:00:00.02 00:00:00.02 | 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 328 00:00:02.77 00:00:11.14 
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9 pages of virtual memory were used to define 2 macros. 
perme meeer ene eww ew ese ewer new ae + 
' Macro library statistics : 
bee mmm meme ere meen eee me anm ae 


Macros defined 


Macro library name 


-$255$DUA28: CFORRTL.OBJIJFORRTL.MLB; 1 
$255$DUA28: (SYSLIBISTARLET.MLB; 
TOTALS (all Libraries) 2 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE= (GLOBAL , TRACEBACK) /LIS=L1S$:FORREADSL/OBJ=OBJ$:F ORREADSL 


MSRC$:FORREADSL/UPDATE=(ENHS:FORREADSL)+L1 | 
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